EnigmA Amiga Run 1995 October/EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso/Aminet/biz/dbase/AA_20.lha/AddressAssist_Install/Install

Text File | 1995-06-12 | 5KB | 208 lines

; **************************************************************************
; *****                                                                *****
; *****                   I N S T A L L - S C R I P T                  *****
; *****                                                                *****
; **************************************************************************
; $Id: Install,v 40.15 1995/11/05 18:36:25 schneida Exp schneida $
; **************************************************************************

(transcript "Installing AddressAssist release 2...")

; **************************************************************************
; **************************************************************************
; **************************************************************************

(set @default-dest "ram:")

(complete 10)

(set @default-dest
    (askdir (prompt "Select destination path for 'AddressAssist' drawer:" )
    (help "The Install-Program will create a directory called 'AddressAssist' into this destination directory and copy all necessary file to there.")
    (default @default-dest)
    )
)

(set @default-dest
    ( tackon @default-dest "AddressAssist" )
)

(message "Installing '" @app-name "' to\n\n'"@default-dest "'" )

(makedir @default-dest
    (infos)
    (safe)
)

(set progversion
    (askchoice
    (prompt "Your system is running a " (database "cpu") " CPU.\n\n Which version of the program would you like to install ???" )
    (choices "Standard (running all CPU's)" "Turbo (optimized for 68020/030, no FPU req.)" )
    (help "Select the correct program version, depending on your installed CPU. If you dont't know what type of CPU your machine has, install the standard version of the program,")
    (default 0)
    )
)

(if ( = 0 progversion )
    (
        (set progname "AddressAssist")
        (message "Installing 'Standard' version of '" @app-name "'" )
    )
    (
        (set progname "AddressAssist_030")
        (message "Installing 'Turbo' version of '" @app-name "'" )
    )
)

; **************************************************************************
; **************************************************************************
; **************************************************************************

(complete 20)

(copyfiles
    (source progname )
    (dest @default-dest)
    (newname "AddressAssist")
)

(copyfiles
    (source "AddressAssist.info" )
    (dest @default-dest)
    (newname "AddressAssist.info")
)

(copyfiles
    (source "MUI" )
    (dest "env:mui" )
    (pattern "#?" )
    (nogauge)
)

(copyfiles
    (source "MUI" )
    (dest "envarc:mui" )
    (pattern "#?" )
    (nogauge)
)

(complete 50)

(if     (askbool
        (prompt "Would you like copy the english documentation files ???" )
        (help @askbool-help)
    )
    (
    (copyfiles
        (source "Doc_English" )
        (dest (tackon @default-dest "Doc_English" ))
        (pattern "#?")
        (infos)
    )
    (copyfiles
        (source "ReadMe.txt" )
        (dest @default-dest )
        (newname "ReadMe.txt")
        (infos)
    )
    )
)

(complete 60)

(if     (askbool
        (prompt "Or Would you like copy the *german* documentation files ???" )
        (help @askbool-help)
    )
    (
    (copyfiles
        (source "Doc_Deutsch" )
        (dest (tackon @default-dest "Doc_Deutsch" ))
        (pattern "#?")
        (infos)
    )
    (copyfiles
        (source "LiesMich.txt" )
        (dest @default-dest )
        (newname "LiesMich.txt")
        (infos)
    )
    )
)


(complete 70)

(if     (askbool
        (prompt "Would you like install the german catalog file ??? You need locale.library V38 for (WB2.1+) localisation to work." )
        (help @askbool-help)
    )
    (
    (copyfiles
        (source "catalogs/deutsch" )
        (dest "locale:catalogs/deutsch" )
        (pattern "#?")
    )
    )
)

(if     (askbool
        (prompt "Or would more like to install the norsk catalog file ???\n\nMany thanks to Eirik Bogsnes for his translation!" )
        (help @askbool-help)
    )
    (
    (copyfiles
        (source "catalogs/norsk" )
        (dest "locale:catalogs/norsk"  )
        (pattern "#?")
    )
    )
)

(complete 80)

(if     (askbool
        (prompt "Would you like copy an example database file ???" )
        (help @askbool-help)
    )
    (
    (copyfiles (
            (source "AddressData" )
            (dest @default-dest )
            (newname "AddressData" )
            (infos)
        )
    )
    )
)

(complete 85)

(if     (askbool
        (prompt "Would you like copy the preferences files to the envarc: assignment???\n\nAttention: from 1.0 to 2.x, preferences file format have changed. Install NEW default preferences files or set all the preferences, including 'Print' preferences, to 'Default'. \n\nSorry for this inconvenience!\n" )
        (help @askbool-help)
    )
    (
    (copyfiles
        (source "envarc" )
        (dest "envarc:AddressAssist" )
        (pattern "#?" )
        (nogauge)
    )
    )
)

(complete 90)

(
    copyfiles (
        (source "ReadMe.MUI" )
        (dest @default-dest )
        (newname "ReadMe.MUI")
        (infos)
        )
)


(complete 100)